home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / sheriffa / frmregis.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-07-12  |  4.4 KB  |  140 lines
  1. VERSION 5.00
  2. Begin VB.Form frmRegister 
  3.    Caption         =   "Register"
  4.    ClientHeight    =   3324
  5.    ClientLeft      =   60
  6.    ClientTop       =   348
  7.    ClientWidth     =   5976
  8.    LinkTopic       =   "Form1"
  9.    MaxButton       =   0   'False
  10.    MinButton       =   0   'False
  11.    ScaleHeight     =   3324
  12.    ScaleWidth      =   5976
  13.    StartUpPosition =   2  'CenterScreen
  14.    Begin VB.CommandButton cmdExit 
  15.       Caption         =   "E&xit"
  16.       Height          =   375
  17.       Left            =   4230
  18.       TabIndex        =   9
  19.       Top             =   2790
  20.       Width           =   1215
  21.    End
  22.    Begin VB.Frame Frame2 
  23.       Caption         =   "Evaluation"
  24.       Height          =   1215
  25.       Left            =   240
  26.       TabIndex        =   4
  27.       Top             =   1440
  28.       Width           =   5415
  29.       Begin VB.CommandButton cmdContinue 
  30.          Caption         =   "&Continue"
  31.          Height          =   375
  32.          Index           =   1
  33.          Left            =   3960
  34.          TabIndex        =   8
  35.          Top             =   720
  36.          Width           =   1215
  37.       End
  38.       Begin VB.TextBox Text2 
  39.          BackColor       =   &H8000000A&
  40.          BorderStyle     =   0  'None
  41.          Height          =   285
  42.          Index           =   1
  43.          Left            =   240
  44.          TabIndex        =   7
  45.          TabStop         =   0   'False
  46.          Text            =   "Howevr, the major features will not be available."
  47.          Top             =   720
  48.          Width           =   3615
  49.       End
  50.       Begin VB.CommandButton Command1 
  51.          Caption         =   "&Continue"
  52.          Height          =   375
  53.          Index           =   2
  54.          Left            =   3960
  55.          TabIndex        =   6
  56.          Top             =   1320
  57.          Width           =   1215
  58.       End
  59.       Begin VB.TextBox Text2 
  60.          BackColor       =   &H8000000A&
  61.          BorderStyle     =   0  'None
  62.          Height          =   285
  63.          Index           =   0
  64.          Left            =   240
  65.          TabIndex        =   5
  66.          TabStop         =   0   'False
  67.          Text            =   "You may continue to run this porduct without full registration."
  68.          Top             =   360
  69.          Width           =   4935
  70.       End
  71.    End
  72.    Begin VB.Frame Frame1 
  73.       Caption         =   "Registration"
  74.       Height          =   1095
  75.       Left            =   270
  76.       TabIndex        =   0
  77.       Top             =   120
  78.       Width           =   5415
  79.       Begin VB.CommandButton cmdRegister 
  80.          Caption         =   "&Register..."
  81.          Height          =   375
  82.          Index           =   0
  83.          Left            =   3950
  84.          TabIndex        =   3
  85.          Top             =   600
  86.          Width           =   1215
  87.       End
  88.       Begin VB.TextBox Text1 
  89.          BackColor       =   &H8000000A&
  90.          BorderStyle     =   0  'None
  91.          Height          =   255
  92.          Index           =   1
  93.          Left            =   240
  94.          MultiLine       =   -1  'True
  95.          TabIndex        =   2
  96.          TabStop         =   0   'False
  97.          Text            =   "frmRegister.frx":0000
  98.          Top             =   720
  99.          Width           =   3615
  100.       End
  101.       Begin VB.TextBox Text1 
  102.          BackColor       =   &H8000000A&
  103.          BorderStyle     =   0  'None
  104.          Height          =   255
  105.          Index           =   0
  106.          Left            =   240
  107.          MultiLine       =   -1  'True
  108.          TabIndex        =   1
  109.          TabStop         =   0   'False
  110.          Text            =   "frmRegister.frx":0034
  111.          Top             =   360
  112.          Width           =   3375
  113.       End
  114.    End
  115. Attribute VB_Name = "frmRegister"
  116. Attribute VB_GlobalNameSpace = False
  117. Attribute VB_Creatable = False
  118. Attribute VB_PredeclaredId = True
  119. Attribute VB_Exposed = False
  120. Option Explicit
  121. Private m_nRegisterState As Integer
  122. Private Sub cmdRegister_Click(Index As Integer)
  123.     frmLicence.Show 1
  124.     If (frmLicence.IsLicenceOK() = True) Then
  125.         Unload Me
  126.         m_nRegisterState = LICENCE_FULL
  127.     End If
  128. End Sub
  129. Private Sub cmdContinue_Click(Index As Integer)
  130.     m_nRegisterState = LICENCE_DEMO
  131.     Unload Me
  132. End Sub
  133. Private Sub cmdExit_Click()
  134.     m_nRegisterState = LICENCE_EXIT
  135.     Unload Me
  136. End Sub
  137. Public Function GetRegisterState() As Integer
  138.     GetRegisterState = m_nRegisterState
  139. End Function
  140.